home *** CD-ROM | disk | FTP | other *** search
/ PC-SIG: World of Education / PC-SiG's World of Education.iso / run / 2602 / plotstok.alg < prev    next >
Encoding:
Text File  |  1990-08-12  |  1.3 KB  |  37 lines
  1. { PLOTSTOK - DAN algorithm to track stock activity }
  2. step = 7;
  3. file = "EG&G.DAT";     {set name of file containing quotes}
  4. volume = read &        {convert data from ASCII text file to binary files}
  5. high = read &
  6. low = read &
  7. close = read  &
  8. sigma1 = std.dev(close) &     ymax = max(high) & ymin = min(low);
  9. constant(sigma1);
  10. xformat = dates;
  11.                     { plot stock value }
  12. label="EG&G Corp. stock value - high, low, close";
  13. ylabel = "Dollars";
  14. tracenum = off;
  15. trace = block & plot(high) & plot(low) &
  16. trace = line & plot(close) & connect(t,high,t,low);
  17. text="EG&G Corp. stock value standard deviation: ";  note(sigma1,#8/1/85,44);
  18. pause;
  19.                     {plot stock volume}
  20. erase;
  21. ymin = 0;   ymax = max(volume)  & sigma2 = std.dev(volume);
  22. constant(sigma2);
  23. label = "EG&G Corp. trading volume";
  24. ylabel = "Number of Shares / 1000";
  25. plot(volume);
  26. text="EG&G Corp. trading volume standard deviation: ";  note(sigma2,#8/1/85,7000);
  27. pause;
  28.                     { plot portfolio value }
  29. file = "numEG&G.dat";    { file containing number of shares owned }
  30. num_share = read;
  31. ymin = min(num_share * close) & ymax = max(num_share * close);
  32. erase;
  33. start = #10/1/84;    dur = #10/1/86 - #10/1/84;
  34. label = "EG&G Portfolio Value";
  35. ylabel = "Dollars";
  36. plot(num_share * close);
  37.